﻿
Imports MICROFORMA.BEL
Imports MICROFORMA.DAL

Public Class RolOpcionBL

    Private _RolOpcion_DA As RolOpcionDA = Nothing

    Public Sub New()
        _RolOpcion_DA = New RolOpcionDA
    End Sub

    Public Function List(ByVal _IdRol As Int16) As RolOpcionBECollection
        Return _RolOpcion_DA.List(_IdRol)
    End Function

    Public Function Add(ByVal _RolOpcionCollection As ArrayList, Optional ByVal idRol As Int16 = Nothing) As String
        Return _RolOpcion_DA.Add(_RolOpcionCollection, idRol)
    End Function

End Class
